0 REM "BASIC SLIDER" (C) DREAD 1991
7 A=A+1:IF A=1 THEN LOAD "CHARS.MC",8,1
9 POKE 53280,14:POKE 53281,6:POKE 53272,24
10 PRINT "[147]";
15 A$="   [194][193][211][201][195] [211]LIDER [196]EMONSTRATION PROGRAM   ":GOSUB 10000
20 A$="            ([195])[160][196]READ 1991              ":GOSUB 10000
25 A$="----------------------------------------":GOSUB 10000
30 FOR A=0 TO 1500:NEXT
35 PRINT "[147]";
40 A$="[212]HIS VERY SIMPLE TEXT-SLIDING TECHNIQUE ":GOSUB 10000
45 A$="USES TWO KEY [194][193][211][201][195] COMMANDS:            ":GOSUB 10000
50 A$="                                        ":GOSUB 10000
55 A$=" [210][201][199][200][212]$ AND [204][197][206](A$).                    ":GOSUB 10000
57 A$="[160]                                       ":GOSUB 10000
60 A$="[200]OW THEY ARE USED IN THE SUBROUTINE WILL":GOSUB 10000
65 A$="BE EXPLAINED LATER, AS WILL HOW TO PUT  ":GOSUB 10000
70 A$="THE SUBROUTINE INTO YOUR OWN PROGRAMS.  ":GOSUB 10000
75 REM **** WAIT FOR KEYPRESS ****
77 PRINT ""
80 POKE 198,0
85 A$="             [208]RESS ANY KEY              ":GOSUB 10000
87 PRINT "[145][145][145][145][145]"
90 A$="[160]                                       ":GOSUB 10000
95 IF PEEK(198)=0 THEN 80
100 PRINT "[147]"
105 A$="          [200]OW THE [211]LIDER WORKS          ":GOSUB 10000
107 PRINT "[145][145]"
110 A$="          [183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183]          ":GOSUB 10000
115 A$=" [212]HE SUBROUTINE.                        ":GOSUB 10000
120 PRINT " 10000 [198][207][210][160]A=[204][197][206](A$) [212][207][160]0 [211][212][197][208][160]-1"
125 PRINT " 10005 [208][210][201][206][212] [210][201][199][200][212]$(A$,[204][197][206](A$)-A);";CHR$(34);"";CHR$(34)
130 PRINT "[160]10010 [206][197][216][212]"
135 PRINT "[160]10020 [210][197][212][213][210][206]                           "
140 A$="[201]F REQUIRED, A PAUSE CAN BE SET BETWEEN ":GOSUB 10000
145 A$="LINES 10005 AND 10010, USING THE LINE:  ":GOSUB 10000
150 PRINT " 10007 [198][207][210] X=0 [212][207] (DELAY):[206][197][216][212]"
155 FOR A=0 TO 3350:NEXT A
160 PRINT "[147]"
165 A$="[206]OW YOU CAN TRY THE SLIDING TECHNIQUE   ":GOSUB 10000
170 A$="OUT FOR YOURSELF! ([205]AKE SURE THAT THE   ":GOSUB 10000
175 A$="TEXT YOU WANT TO SLIDE IS 40 CHARACTERS ":GOSUB 10000
180 A$="LONG, OR IT WILL NOT WORK PROPERLY.)    ":GOSUB 10000
185 INPUT " [217]OUR TEXT";T$
190 IF LEN(T$)<40 OR LEN(T$)>40 THEN PRINT "[212]HIS WILL NOT WORK!":GOTO 185
195 A$=T$:PRINT "[147]":GOSUB 10000
200 INPUT "[193]NOTHER GO";G$:IF G$<>"Y" OR G$<>"YES" THEN 210
205 GOTO 185
210 PRINT "[147]";
215 A$="[200]ERE IS THE PROGRAM THAT SLIDED THAT    ":GOSUB 10000
220 A$="LAST PIECE OF TEXT....                  ":GOSUB 10000
225 PRINT " 10 A$=";CHR$(34);T$;CHR$(34)":GOSUB 10000"
230 PRINT "[160]10000 [198][207][210] A=[204][197][206](A$) [212][207] 0 [211][212][197][208] -1"
235 PRINT " 10005 [208][210][201][206][212] [210][201][199][200][212]$(A$,[204][197][206](A$)-A);";CHR$(34);"";CHR$(34)
240 PRINT "[160]10010 [206][197][216][212]"
245 PRINT " 10015 [210][197][212][213][210][206][160]                          "
250 A$=" [206]OW YOU SHOULD NOW EVERYTHING THERE IS ":GOSUB 10000
255 A$="TO KNOW ABOUT THE [194]ASIC [211]LIDER, AND CAN ":GOSUB 10000
260 A$="USE THE SUBROUTINE IN YOUR OWN PROGRAMS.":GOSUB 10000
265 FOR A=0 TO 3650:NEXT
270 PRINT "[147]";:POKE 53272,23:POKE 53280,4:POKE 53281,0:POKE 650,128
275 PRINT " <[198]1> - LOAD [211]LIDER SUBROUTINE."
280 PRINT " <[198]3>[160]- RESTART [196]EMONSTRATION."
285 PRINT " <[198]5>[160]- [209]UIT AND RETURN TO [194][193][211][201][195] [214]2"
290 GET A$:IF A$="" THEN 290
295 IF ASC(A$)<133 AND ASC(A$)>135 THEN GOTO 290
300 IF A$=CHR$(133) THEN LOAD "SLIDER.SUB",8
305 IF A$=CHR$(134) THEN GOTO 9
310 IF A$=CHR$(135) THEN SYS 64738
9999 END
10000 FOR A=LEN(A$) TO 0 STEP -1
10005 PRINT RIGHT$(A$,LEN(A$)-A);"[145]"
10010 NEXT
10015 FOR X=0 TO 264:NEXT X
10020 RETURN
10025 REM -------------------------
10030 REM LINES 10000-10015 ARE THE
10035 REM SLIDER SUBROUTINE ^ ^ ^ ^